--^T+I Zahleingabe*
--ffnet einen Dialog in dem eine Zahl eingegeben wird.
	-- Variable s ist vom Typ string
	-- Variable number ist vom Typ integer
	repeat
		s := prompt("Enter a number:");
		number := str_to_num(s);
	until number /= 0 or s = "0";